﻿Public Class FormAltaUsuario
    Dim _miCampeonato As Campeonato
    Dim _resultado As List(Of String)
    Dim _idRol As Integer

    Property idRol As Integer
        Get
            Return Me._idRol
        End Get
        Set(value As Integer)
            Me._idRol = value
        End Set
    End Property

    Private Sub FormAltaUsuario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FormEntrada
        _miCampeonato = New Campeonato
        _resultado = New List(Of String)
    End Sub

    Private Sub btnAltaUsuario_Click(sender As Object, e As EventArgs) Handles btnAltaUsuario.Click
        Dim telefono As Integer
        Dim nif, nombre, apellidos, usuario, contraseña, rol As Boolean
        nif = False
        nombre = False
        apellidos = False
        usuario = False
        contraseña = False
        rol = False

        If tbxUsuarioTelefono.Text = "" Then
            telefono = 0
        End If

        'Comprobar que el nif no este vacio o exceda de 9 caracteres
        If tbxUsuarioNIF.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxUsuarioNIF, "El nif no puede estar vacío")
        ElseIf tbxUsuarioNIF.Text.Length > 9 Then
            ErrorProvider1.SetError(tbxUsuarioNIF, "La longitud es demasiado larga")
        Else
            ErrorProvider1.SetError(tbxUsuarioNIF, Nothing)
            nif = True
        End If

        'Comprobar que el campo de apellidos no este vacío
        If tbxUsuarioApellidos.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxUsuarioApellidos, "Los apellidos no pueden estar vacíos")
        Else
            ErrorProvider1.SetError(tbxUsuarioApellidos, Nothing)
            apellidos = True
        End If

        'Comprobar que el campo de nombre no este vacío
        If tbxUsuarioNombre.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxUsuarioNombre, "El nombre no puede estar vacío")
        Else
            ErrorProvider1.SetError(tbxUsuarioNombre, Nothing)
            nombre = True
        End If

        'Comprobar que el campo de usuario no este vacío
        If tbxUsuarioUsuario.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxUsuarioUsuario, "El usuario no puede estar vacío")
        Else
            ErrorProvider1.SetError(tbxUsuarioUsuario, Nothing)
            usuario = True
        End If

        'Comprobar que el campo de contraseña no este vacío
        If tbxUsuarioConstraseña.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxUsuarioConstraseña, "La contraseña no puede estar vacía")
        Else
            ErrorProvider1.SetError(tbxUsuarioConstraseña, Nothing)
            contraseña = True
        End If

        'Comprobar que el campo de roles no este vacío
        If tbxidRol.Text.Length = 0 Then
            ErrorProvider1.SetError(tbxidRol, "Los roles no pueden estar vacíos")
        Else
            ErrorProvider1.SetError(tbxidRol, Nothing)
            rol = True
        End If

        If nif = True And nombre = True And apellidos = True And usuario = True And contraseña = True And rol = True Then
            _miCampeonato.insertarUsuario(tbxUsuarioNIF.Text, tbxUsuarioNombre.Text, _
                                         tbxUsuarioApellidos.Text, telefono, tbxUsuarioUsuario.Text, _
                                        tbxUsuarioConstraseña.Text, Me._idRol)
            Me.Close()
        End If
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        FormBuscarRol.Show()
        FormBuscarRol.formDestino = "FormAltaUsuario"
    End Sub

    Private Sub btnBorrarAlta_Click(sender As Object, e As EventArgs) Handles btnBorrarAlta.Click
        Me.Close()
    End Sub

    Private Sub GroupBox4_Enter(sender As Object, e As EventArgs) Handles GroupBox4.Enter

    End Sub
End Class